home *** CD-ROM | disk | FTP | other *** search
/ Disc to the Future 2 / Disc to the Future Part II Programmer's Reference (Wayzata Technology)(6013)(1992).bin / PC / ADA / ADATUTOR / TRITYPE.ANS (.png) < prev    next >
ANSI Art File  |  1988-03-25  |  506b  |  640x112  |  1-bit (2 colors)
Labels: text | screenshot | font | black | black and white
OCR: Our solution to Outside Assignment 2: separate (TRITEST)function TRITYPE(LEN1, LENZ, LEN3 : in INTEGER) return TRIANGLE is ANSWER : TRIANGLE; begin if LEN1 + LENZ <= LEN3 or LEN1 + LEN3 <= LENZ or LENZ + LEN3 <= LEN1 then ANSWE R : = NOT_A_TRIANGLE; elsif LEN1 = LENZ and LENZ = LEN3 then ANSWER EQUILATERAL; elsif LEN1 = LENZ or LENZ = LEN3 or LEN1 = LEN3 then ANSWER := ISOSCELES; else ANSWER := SCALENE; end if; return ANSWER; en d TRITYPE;